home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1138 / source.zip / FRMINFO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-18  |  1.1 KB  |  41 lines
  1. VERSION 2.00
  2. Begin Form frminfo 
  3.    Caption         =   "FYI"
  4.    ClientHeight    =   4116
  5.    ClientLeft      =   876
  6.    ClientTop       =   1524
  7.    ClientWidth     =   7236
  8.    ClipControls    =   0   'False
  9.    Height          =   4536
  10.    Left            =   828
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4116
  15.    ScaleWidth      =   7236
  16.    Top             =   1152
  17.    Width           =   7332
  18.    Begin ListBox lstinfo 
  19.       Height          =   1560
  20.       Left            =   0
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   3492
  24.    End
  25. Option Explicit
  26. Sub Form_Load ()
  27. Dim i As Integer
  28.     Width = frmmain.Width * .7
  29.     Height = frmmain.Height * .7
  30.     left = (screen.Width - Width) / 2
  31.     top = (screen.Height - Height) / 2
  32.     Form_resize
  33.     For i = 1 To GetNumLines()
  34.         lstinfo.AddItem fixstr(GetLine(i))
  35.     Next i
  36. End Sub
  37. Sub Form_resize ()
  38.     lstinfo.Width = frminfo.ScaleWidth
  39.     lstinfo.Height = frminfo.ScaleHeight
  40. End Sub
  41.